1 Public Class FrmRECEIVE_ORDER_PRINT
2
3     Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
4         Me.Close()
5     End Sub
6
7     Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
8         Dim Report As New FrmREPORTS
9         
'Rpt_SqlStr = "SELECT *,*,*,* FROM (((TBL_Purchase_Order " & _
10         
' "INNER JOIN TBL_Purchase_Detail ON TBL_Purchase_Order.Purchase_ID = TBL_Purchase_Detail.Purchase_ID) " & _
11         
' "INNER JOIN TBL_Suppliers ON TBL_Purchase_Order.Supp_ID = TBL_Suppliers.Supp_ID) " & _
12         
' "INNER JOIN TBL_Category_Item_File ON TBL_Purchase_Detail.Item_ID = TBL_Category_Item_File.Item_ID) " & _
13         
' "WHERE Purchased_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Purchased_Date <=' " & Format(dtTo.Value, "MM/dd/yyyy") & "'" _
14         
' & " AND Approved ='Yes' "
15
16         Rpt_SqlStr =
"SELECT * FROM TBL_Purchase_Order WHERE Purchased_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Purchased_Date <='" & Format(dtTo.Value, "MM/dd/yyyy") & "' AND Approved ='Yes'"
17         
' Rpt_SqlStr = "SELECT * FROM TBL_Purchase_Order "
18         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Receive Order ")
19         Report.Show()
20         Me.Close()
21         
'FrmREPORTS.Show()
22     End Sub
23 End Class


Gõ tìm kiếm nhanh...